home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility3
/
vbawk.zip
/
AWK.FRM
next >
Wrap
Text File
|
1993-07-12
|
4KB
|
152 lines
VERSION 2.00
Begin Form Awk
BackColor = &H00C0C0C0&
Caption = "AWKsome Demo"
Height = 4245
Left = 1155
LinkTopic = "Form1"
ScaleHeight = 3780
ScaleWidth = 7485
Top = 1230
Width = 7665
Begin VideoSoftElastic VSElastic1
Align = 5 'Fill Container
AutoSizeChildren= 4 'Uneven Vertically
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 3270
Left = 0
Splitter = 0 'No
TabIndex = 0
Top = 0
Width = 7485
Begin ListBox List1
Height = 2370
Left = 90
TabIndex = 1
Top = 810
Width = 7305
End
Begin VideoSoftElastic VSElastic2
Align = 0 'None
AutoSizeChildren= 1 'Even Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 0 'None
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 630
Left = 90
Splitter = 0 'No
TabIndex = 3
Top = 90
Width = 7305
Begin CommandButton Command1
Caption = "Get AUTOEXEC.BAT"
Height = 450
Index = 1
Left = 3690
TabIndex = 5
Top = 90
Width = 3525
End
Begin CommandButton Command1
Caption = "Get CONFIG.SYS"
Height = 450
Index = 0
Left = 90
TabIndex = 4
Top = 90
Width = 3510
End
End
End
Begin VideoSoftElastic StatusBar
Align = 2 'Align Bottom
AutoSizeChildren= 0 'None
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 1 'Raised
BevelOuterWidth = 1
BorderWidth = 6
Caption = ""
CaptionPos = 4 'Center Center
ChildSpacing = 6
FloodColor = &H0080FFFF&
FloodDirection = 1 'Right
FloodPercent = 0
Height = 510
Left = 0
Splitter = 0 'No
TabIndex = 2
Top = 3270
Width = 7485
End
Begin VideoSoftAwk VSAwk
Case = 2 'to lower
FS = " ="
Left = 45
Top = 2790
End
End
Option Explicit
Const Blank = 0
Sub Command1_Click (Index%)
List1.Clear
Select Case Index
Case 0
vsawk.FileName = "c:\config.sys"
Case 1
vsawk.FileName = "c:\autoexec.bat"
End Select
' start parsing
vsawk.Action = 0
End Sub
Sub Form_Resize ()
VSElastic1.Top = 0
End Sub
Sub VSAwk_Begin ()
mousepointer = 11
End Sub
Sub VSAwk_End ()
StatusBar = "FILE: " & vsawk.FileName & " LINES: " & vsawk.RN
mousepointer = 0
StatusBar.FloodPercent = 0
End Sub
Sub VSAwk_Scan ()
StatusBar.FloodPercent = vsawk.PercentDone
StatusBar = Format(vsawk.PercentDone) & " %"
StatusBar.Refresh
'add scanned line to the list
List1.AddItem vsawk.F(0)
End Sub